home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 5 / MacMania 5.toast / / Internet software / Analog 2.0 / Analog 2.0 Src / output.c < prev    next >
Text File  |  1997-02-12  |  51KB  |  1,601 lines
  1. /*** analog 2.0 ***/
  2. /* Please read Readme.html, or http://www.statslab.cam.ac.uk/~sret1/analog/  */
  3.  
  4. /*** output.c; the output function. ***/
  5. /* See output2.c and output3.c for subsidiary functions */
  6.  
  7. #include "analhea2.h"
  8.  
  9. void output(struct genstruct *rsorthead, struct genstruct *isorthead,
  10.         struct genstruct *tsorthead, struct genstruct *Ssorthead,
  11.         int firstdom, struct genstruct *fsorthead,
  12.         struct genstruct *bsorthead, struct genstruct *Bsorthead,
  13.         int errorder[])
  14. {
  15.   extern char *outfile;
  16.   extern char dayname[7][11];
  17.   extern char monthname[12][12];
  18.   extern int monthlength[12];
  19.   extern char *hostname;
  20.   extern char *logourl;
  21.   extern char *hosturl;
  22.   extern char *commandname;
  23.   extern char *headerfile;
  24.   extern char *footerfile;
  25.   extern char reportorder[];
  26.   extern flag byq, refbyq, browbyq, html2;
  27.   extern flag mback, Dback, Wback, Hback;
  28.   extern int mrows, Hrows, Drows;
  29.   extern flag xq, dq, Dq, Wq, hq, Hq, mq, Sq, rq, oq, iq, tq, fq, bq, Bq, cq;
  30.   extern int eq;
  31.   extern int aq, lang, dialect, debug;
  32.   extern struct include *linkhead, *reflinkhead;
  33.   extern struct alias *routaliashead, *ioutaliashead, *Soutaliashead;
  34.   extern struct alias *foutaliashead, *boutaliashead, *toutaliashead;
  35.   extern struct timestruct firsttime, lasttime;
  36.   extern time_t starttime, stoptime;
  37.   extern int weekbeginson;
  38.   extern struct monthly *firstm, *lastm;
  39.   extern struct weekly *firstW, *lastW;
  40.   extern struct daily *firstD, *lastD;
  41.   extern struct hourly *firstH, *lastH;
  42.   extern int dreq[], hreq[], dpag[], hpag[];
  43.   extern double dbytes[], hbytes[];
  44.   extern int munit, Wunit, hunit, Hunit, dunit, Dunit;
  45.   extern double total_bytes, total_ref_bytes, total_brow_bytes;
  46.   extern int total_succ_reqs, total_page_reqs, total_good_refs;
  47.   extern int total_good_brows, total_ref_pages, total_brow_pages;
  48.   extern int pagewidth;
  49.   extern int Ssortby, rsortby, isortby, tsortby, fsortby, bsortby, Bsortby;
  50.   extern char *Sminreqstr, *rminreqstr, *iminreqstr, *fminreqstr;
  51.   extern char *tminreqstr, *bminreqstr, *Bminreqstr;
  52.   extern char *Sminpagestr, *rminpagestr, *iminpagestr, *fminpagestr;
  53.   extern char *tminpagestr, *bminpagestr, *Bminpagestr;
  54.   extern char *Sminbytestr, *rminbytestr, *iminbytestr, *fminbytestr;
  55.   extern char *tminbytestr, *bminbytestr, *Bminbytestr;
  56.   extern char mgraph, dgraph, Dgraph, hgraph, Hgraph, Wgraph;
  57.   extern char mcols[], dcols[], Dcols[], hcols[], Wcols[], Hcols[];
  58.   extern char rcols[], icols[], tcols[], Scols[], fcols[], bcols[], Bcols[];
  59.   extern char *imagedir, *baseurl;
  60.   extern int imaxreqs, tmaxreqs, Smaxreqs, rmaxreqs, fmaxreqs, bmaxreqs;
  61.   extern int Bmaxreqs;
  62.   extern int imaxpages, tmaxpages, Smaxpages, rmaxpages, fmaxpages, bmaxpages;
  63.   extern int Bmaxpages;
  64.   extern double imaxbytes, tmaxbytes, Smaxbytes, rmaxbytes, fmaxbytes;
  65.   extern double bmaxbytes, Bmaxbytes;
  66.   extern char *presep;
  67.  
  68.   FILE *outf;       /* the output file */
  69.   int fieldwidth;   /* Width we require to print #reqs in */
  70.   int pfieldwidth, bfieldwidth;  /* #pages and #bytes ditto */
  71.   char bprefix[2];  /* kilo, Mega, etc. */
  72.   int graphwidth;   /* the width left for a graph after columns written */
  73.   struct monthly *mp;
  74.   struct daily *dp;
  75.   struct weekly *wp;
  76.   struct hourly *hp;
  77.   int maxreq, maxpages;       /* within a particular date report */
  78.   double maxbytes;
  79.   double bdivider;
  80.   int year, monthno, date, hr;
  81.   flag finished;
  82.   flag ispipe;
  83.   char langstr[MAXSTRINGLENGTH], langstr2[MAXSTRINGLENGTH];
  84.   char langstr3[MAXSTRINGLENGTH], langstr4[MAXSTRINGLENGTH];
  85.   char langgender = 'm';  /* initialise so don't need to set in English */
  86.   int i, j, firsti, lasti, tempint;
  87.   char *ro;
  88.   char templine[MAXLINELENGTH];
  89.   FILE *tempf;
  90.  
  91.   bprefix[0] = '\0';
  92.   bprefix[1] = '\0';
  93.  
  94.   if (STREQ(outfile, "stdout") || STREQ(outfile, "-")) {
  95.     outf = stdout;
  96.     if (debug > 0)
  97.       fprintf(stderr, "F: Opening stdout as output file\n");
  98.   }
  99.  
  100.   else if ((outf = fopen(outfile, "a")) == NULL) {
  101.     fprintf(stderr, "%s: Error: failed to open output file %s for writing.\n",
  102.         commandname, outfile);
  103.     exit(ERR);  /* shouldn't get here because also tested at the beginning */
  104.   }             /* (unless it's vanished in the meantime or something) */
  105.  
  106.   else if (debug > 0)
  107.       fprintf(stderr, "F: Opening %s as output file\n", outfile);
  108.  
  109.   if (aq == CACHE)
  110.     fprintf(outf,
  111.         "CACHE type 2 produced by analog%s. Do not modify or delete!",
  112.         VERSION);
  113.   else {
  114.     if (aq == HTML) {
  115.       fprintf(outf, "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">\n");
  116.       fprintf(outf, "<html>\n<head>\n");
  117.       fprintf(outf, "<meta name=\"GENERATOR\" content=\"analog%s\">\n",
  118.           VERSION);
  119.       if (lang == ENGLISH)
  120.     fprintf(outf, "<title>Web Server Statistics for ");
  121.       else if (lang == FRENCH)
  122.     fprintf(outf, "<title>Statistiques du Serveur Web pour ");
  123.       else if (lang == GERMAN)
  124.     fprintf(outf, "<title>WWW-Server Statistiken fuer ");
  125.       else if (lang == SPANISH)
  126.     fprintf(outf, "<title>Estadísticas del Servidor Web de ");
  127.       else if (lang == DANISH)
  128.     fprintf(outf, "<title>Web Server Statistik for ");
  129.       else /* lang == ITALIAN */
  130.         fprintf(outf, "<title>Statistiche del Web Server per ");
  131.       htmlfprintf(outf, hostname);
  132.       fprintf(outf, "</title></head>\n");
  133.       fprintf(outf, "<body>\n<h1><a NAME=\"Top\">");
  134.       if (!STREQ(logourl, "none")) {
  135.     fprintf(outf, "<IMG src=\"");
  136.     htmlfprintf(outf, logourl);
  137.     fprintf(outf, "\" alt=\"\"> ");
  138.       }
  139.       if (hosturl[0] == '-') {
  140.     if (lang == ENGLISH)
  141.       fprintf(outf, "Web Server Statistics</a> for ");
  142.     else if (lang == FRENCH)
  143.       fprintf(outf, "Statistiques du Serveur Web</a> pour ");
  144.     else if (lang == GERMAN)
  145.       fprintf(outf, "WWW-Server Statistiken</a> für ");
  146.     else if (lang == SPANISH)
  147.       fprintf(outf, "Estadísticas del Servidor Web</a> de ");
  148.     else if (lang == DANISH)
  149.        fprintf(outf, "Web Server Statistik</a> for ");
  150.         else /* lang == ITALIAN */
  151.       fprintf(outf, "Statistiche del Web Server</a> per ");
  152.     htmlfprintf(outf, hostname);
  153.       }
  154.       else {
  155.     if (lang == ENGLISH)
  156.       fprintf(outf, "Web Server Statistics</a> for <a HREF=\"");
  157.     else if (lang == FRENCH)
  158.       fprintf(outf, "Statistiques du Serveur Web</a> pour <a HREF=\"");
  159.     else if (lang == GERMAN)
  160.       fprintf(outf, "WWW-Server Statistiken</a> für <a HREF=\"");
  161.     else if (lang == SPANISH)
  162.       fprintf(outf,
  163.           "Estadísticas del Servidor Web</a> de <a HREF=\"");
  164.     else if (lang == DANISH)
  165.       fprintf(outf, "Web Server Statistik</a> for <a HREF=\"");
  166.         else /* lang == ITALIAN */
  167.           fprintf(outf, "Statistiche del Web Server</a> per <a HREF=\"");
  168.     htmlfprintf(outf, hosturl);
  169.     fprintf(outf, "\">");
  170.     htmlfprintf(outf, hostname);
  171.     fprintf(outf, "</a>");
  172.       }
  173.       fprintf(outf, "</h1>\n\n");
  174.     }
  175.     else if (aq == ASCII) {
  176.       if (lang == ENGLISH) {
  177.     fprintf(outf, "Web Server Statistics for %s\n", hostname);
  178.     fprintf(outf, "==========================");
  179.       }
  180.       else if (lang == FRENCH) {
  181.     fprintf(outf, "Statistiques du Serveur Web pour %s\n", hostname);
  182.     fprintf(outf, "=================================");
  183.       }
  184.       else if (lang == GERMAN) {
  185.     fprintf(outf, "WWW-Server Statistiken fuer %s\n", hostname);
  186.     fprintf(outf, "============================");
  187.       }
  188.       else if (lang == SPANISH) {
  189.     fprintf(outf, "Estadisticas del Servidor Web de %s\n", hostname);
  190.     fprintf(outf, "=================================");
  191.       }
  192.       else if (lang == DANISH) {
  193.     fprintf(outf, "Web Server Statistik for %s\n", hostname);
  194.     fprintf(outf, "===========================");
  195.       }
  196.       else {  /* lang == ITALIAN */
  197.         fprintf(outf, "Statistiche del Web Server per %s\n", hostname);
  198.         fprintf(outf, "===============================");
  199.       }
  200.       for (i = (int)strlen(hostname); i > 0; i--)
  201.     fprintf(outf, "=");
  202.       fprintf(outf, "\n");
  203.     }
  204.     
  205.     /* insert header file  -- before top line for HTML, ASCII; after for PRE */
  206.     
  207.     if (!STREQ(headerfile, "none")) {
  208.       tempf = fopenlog(headerfile, "header file", &ispipe);
  209.       if (tempf != NULL) {
  210.     if (aq == HTML)
  211.       fprintf(outf, "<hr>\n");
  212.     else if (aq == ASCII)
  213.       fprintf(outf, "\n");
  214.     
  215.     while(fgets(templine, MAXLINELENGTH, tempf) != NULL)
  216.       fprintf(outf, "%s", templine);
  217.     if (templine[(int)strlen(templine) - 1] != '\n')
  218.       fprintf(outf, "\n");
  219.     fcloselog(tempf, headerfile, "header file", ispipe);
  220.     
  221.     if (aq == ASCII) {
  222.       for (i = 0; i < pagewidth; i++)
  223.         fprintf(outf, "-");
  224.     }
  225.     
  226.     if (aq != PREFORMATTED)
  227.       fprintf(outf, "\n");
  228.  
  229.     html2 = OFF;
  230.       }
  231.     }
  232.  
  233.     if (aq == PREFORMATTED) {
  234.       if (xq) {
  235.     fprintf(outf, "x%sHN%s%s", presep, presep, hostname);
  236.     if (hosturl[0] != '-')
  237.       fprintf(outf, "\nx%sHU%s%s", presep, presep, hosturl);
  238.       }
  239.     }
  240.  
  241.   }   /* else (aq != CACHE) */
  242.  
  243.   /* Summary statistics */
  244.  
  245.   if (xq)
  246.     gensum(outf);
  247.   else if (aq == ASCII)
  248.     printf("\n");
  249.  
  250.   /* Now for the rest of the reports, in reportorder order */
  251.     
  252.   for (ro = reportorder; *ro != '\0'; ro++) {
  253.  
  254.     switch(*ro) {
  255.  
  256.     case 'm':    /* Monthly report */
  257.  
  258.       if (mq) {
  259.  
  260.     /* For forwards reports and (mrows > 0), must get the first month
  261.        correct (for backwards reports doesn't matter; can just count off
  262.        the correct number of months as we go (using j below). */
  263.  
  264.     /* NB This could be more efficient by not remembering months that
  265.        we're definitely not going to need (re-using those years in the
  266.        date hashing). Then we only ever need to move forward by at most
  267.        one year. We couldn't use firsttime for the earliest month recorded
  268.        though. */
  269.  
  270.     /* Another alternative would be to have TO times for each report
  271.        separately. (This would allow them for the general reports too).
  272.        It wouldn't, however, extend well to the weekly report. */
  273.  
  274.     if (!mback && mrows > 0) {  /* set year, monthno to 1st month wanted */
  275.       monthno = lasttime.year * 12 + lasttime.monthno - mrows + 1;
  276.       year = monthno / 12;
  277.       monthno %= 12;
  278.       if (year < firsttime.year ||
  279.           (year == firsttime.year && monthno <= firsttime.monthno)) {
  280.         mrows = 0;
  281.         monthno = 0;
  282.       }
  283.       else for (i = year - firsttime.year; i > 0; i--)
  284.         firstm = firstm -> next;    /* run firstm through enough years */
  285.     }
  286.     else
  287.       monthno = 0;
  288.  
  289.     if (aq != PREFORMATTED) {
  290.       maxreq = 0;
  291.       maxpages = 0;
  292.       maxbytes = 0.0;
  293.       finished = FALSE;
  294.       for (mp = mback?lastm:firstm; !finished; mp = mp -> next) {
  295.         for (i = (mp == firstm)?monthno:0; i < 12; i++) {
  296.           maxreq = MAX(maxreq, mp -> reqs[i]);
  297.           maxpages = MAX(maxpages, mp -> pages[i]);
  298.           maxbytes = MAX(maxbytes, mp -> bytes[i]);
  299.         }
  300.         if (mp == (mback?firstm:lastm))
  301.           finished = TRUE;
  302.       }
  303.  
  304.       if (lang == ENGLISH) {
  305.         strcpy(langstr, "Monthly Report");
  306.         strcpy(langstr3, "   month");
  307.       }
  308.       else if (lang == FRENCH) {
  309.         strcpy(langstr, "Rapport Mensuel");
  310.         strcpy(langstr3, "     mois");
  311.       }
  312.       else if (lang == GERMAN) {
  313.         strcpy(langstr, "Monatsbericht");
  314.         strcpy(langstr3, "  Monate");
  315.       }
  316.       else if (lang == SPANISH) {
  317.         strcpy(langstr, "Informe Mensual");
  318.         strcpy(langstr3, "     mes");
  319.       }
  320.       else if (lang == DANISH) {
  321.         if (aq == HTML) {
  322.           strcpy(langstr, "Månedlig rapport");
  323.           strcpy(langstr3, "   måned");
  324.         }
  325.         else {
  326.           strcpy(langstr, "Maanedlig rapport");
  327.           strcpy(langstr3, "  maaned");
  328.         }
  329.           }
  330.           else { /* lang == ITALIAN */
  331.             strcpy(langstr, "Resoconto mesi");
  332.         strcpy(langstr3, "    mese");
  333.       }
  334.       datehead(outf, maxreq, maxpages, maxbytes, mcols, &mgraph, "Monthly",
  335.            langstr, langstr, langstr3, 'm', &munit, &fieldwidth,
  336.            &pfieldwidth, &bfieldwidth, &graphwidth, &bdivider);
  337.     }
  338.  
  339.     if (mback && mrows > 0)
  340.       j = mrows;
  341.     else
  342.       j = -1;
  343.     finished = FALSE;
  344.     if (mback || mrows <= 0)     /* else 'year' already calculated */
  345.       year = (mback?(&lasttime):(&firsttime)) -> year;
  346.     /* really (mback?lasttime:firsttime).year but some compilers choke */
  347.     for (mp = mback?lastm:firstm; !finished; mp = mp -> next) {
  348.       if (mp == firstm) {
  349.         if (!mback && mrows > 0)
  350.           firsti = monthno;
  351.         else
  352.           firsti = firsttime.monthno;
  353.         if (mback)
  354.           finished = TRUE;
  355.       }
  356.       else
  357.         firsti = 0;
  358.       if (mp == lastm) {
  359.         lasti = lasttime.monthno;
  360.         if (!mback)
  361.           finished = TRUE;
  362.       }
  363.       else
  364.         lasti = 11;
  365.       for (i = mback?lasti:firsti; (mback?(i >= firsti):(i <= lasti)) &&
  366.            j != 0; i += mback?(-1):1) {  /* thro months in chosen order */
  367.         if (aq == PREFORMATTED)
  368.           precols(outf, mcols, 'm', byq, ON);
  369.         else
  370.           fprintf(outf, "%s %d: ", monthname[i], year);
  371.         dateline(outf, mp -> reqs[i], mp -> pages[i], mp -> bytes[i],
  372.              mcols, mgraph, fieldwidth, pfieldwidth, bfieldwidth,
  373.              munit, bdivider);
  374.         if (aq == PREFORMATTED)
  375.           fprintf(outf, "%d%s%d\n", year, presep, i + 1);
  376.         j--;
  377.       }
  378.       year += mback?(-1):1;
  379.     }
  380.     
  381.     if (aq == ASCII)
  382.       asciiline(outf);
  383.     else if (aq == HTML)
  384.       fprintf(outf, "</tt></pre>");
  385.     
  386.       }
  387.  
  388.       break;
  389.       
  390.     case 'W':      /* Weekly report */
  391.  
  392.       if (Wq) {
  393.  
  394.     /* For the weekly report, we needn't worry about Wrows at this stage.
  395.        Becuase there is only one week per structure, we never allocate
  396.        more than are needed. */
  397.  
  398.     if (aq != PREFORMATTED) {
  399.       maxreq = 0;
  400.       maxpages = 0;
  401.       maxbytes = 0.0;
  402.       finished = FALSE;
  403.       for (wp = Wback?lastW:firstW; !finished; wp = wp -> next) {
  404.         maxreq = MAX(maxreq, wp -> reqs);
  405.         maxpages = MAX(maxpages, wp -> pages);
  406.         maxbytes = MAX(maxbytes, wp -> bytes);
  407.         if (wp == (Wback?firstW:lastW))
  408.           finished = TRUE;
  409.       }
  410.  
  411.       if (lang == ENGLISH) {
  412.         strcpy(langstr, "Weekly Report");
  413.         strcpy(langstr3, "week beg.");
  414.       }
  415.       else if (lang == FRENCH) {
  416.         strcpy(langstr, "Rapport Hebdomadaire");
  417.         strcpy(langstr3, " sem. com.");
  418.       }
  419.       else if (lang == GERMAN) {
  420.         strcpy(langstr, "Wochenbericht");
  421.         strcpy(langstr3, "Woch.beg.");
  422.       }
  423.       else if (lang == SPANISH) {
  424.         strcpy(langstr, "Informe Semanal");
  425.         strcpy(langstr3, "sem. com.");
  426.       }
  427.       else if (lang == DANISH) {
  428.         strcpy(langstr, "Ugentlig rapport");
  429.         strcpy(langstr3, "uge start.");
  430.       }
  431.           else { /* lang == ITALIAN */
  432.             strcpy(langstr, "Resoconto settimane");
  433.             strcpy(langstr3, "sett.com.");
  434.       } 
  435.       datehead(outf, maxreq, maxpages, maxbytes, Wcols, &Wgraph, "Weekly",
  436.            langstr, langstr, langstr3, 'W', &Wunit, &fieldwidth,
  437.            &pfieldwidth, &bfieldwidth, &graphwidth, &bdivider);
  438.     }
  439.  
  440.     finished = FALSE;
  441.     for (wp = Wback?lastW:firstW; !finished; wp = wp -> next) {
  442.       if (aq == PREFORMATTED)
  443.         precols(outf, Wcols, 'W', byq, ON);
  444.       else
  445.         fprintf(outf, "%2d/%s/%02d: ", wp -> start.date,
  446.             monthname[wp -> start.monthno], wp -> start.year % 100);
  447.       dateline(outf, wp -> reqs, wp -> pages, wp -> bytes, Wcols, Wgraph,
  448.            fieldwidth, pfieldwidth, bfieldwidth, Wunit, bdivider);
  449.       if (aq == PREFORMATTED)
  450.         fprintf(outf, "%d%s%d%s%d\n", wp -> start.year, presep,
  451.             wp -> start.monthno + 1, presep, wp -> start.date);
  452.       if (wp == (Wback?firstW:lastW))
  453.         finished = TRUE;
  454.       
  455.     }     /* end running through weeks */
  456.  
  457.     if (aq == ASCII)
  458.       asciiline(outf);
  459.     else if (aq == HTML)
  460.       fprintf(outf, "</tt></pre>");
  461.     
  462.       }   /* end if Wq */
  463.  
  464.       break;
  465.  
  466.     case 'd':      /* Daily summary */
  467.  
  468.       if (dq) {
  469.     
  470.     if (aq != PREFORMATTED) {
  471.       maxreq = 0;
  472.       maxpages = 0;
  473.       maxbytes = 0.0;
  474.       for (i = 0; i <= 6; i++) {
  475.         maxreq = MAX(maxreq, dreq[i]);
  476.         maxpages = MAX(maxpages, dpag[i]);
  477.         maxbytes = MAX(maxbytes, dbytes[i]);
  478.       }
  479.     
  480.       if (lang == ENGLISH) {
  481.         strcpy(langstr, "Daily Summary");
  482.         strcpy(langstr2, "Daily Summary");
  483.         strcpy(langstr3, "day");
  484.       }
  485.       else if (lang == FRENCH) {
  486.         strcpy(langstr, "Resume Quotidien");
  487.         strcpy(langstr2, "Résumé Quotidien");
  488.         strcpy(langstr3, "jou");
  489.       }
  490.       else if (lang == GERMAN) {
  491.         strcpy(langstr, "Tagesuebersicht");
  492.         strcpy(langstr2, "Tagesübersicht");
  493.         strcpy(langstr3, "Tag");
  494.       }
  495.       else if (lang == SPANISH) {
  496.         strcpy(langstr, "Resumen Diario");
  497.         strcpy(langstr2, "Resumen Diario");
  498.         if (aq == HTML)
  499.           strcpy(langstr3, "día");
  500.         else
  501.           strcpy(langstr3, "dia");
  502.       }
  503.       else if (lang == DANISH) {
  504.         strcpy(langstr, "Daglig oversigt");
  505.         strcpy(langstr2, "Daglig oversigt");
  506.         strcpy(langstr3, "dag");
  507.           }
  508.           else { /* lang == ITALIAN */
  509.             strcpy(langstr, "Sommario giorni della settimana");
  510.             strcpy(langstr2, "Sommario giorni della settimana");
  511.             strcpy(langstr3, "gio");
  512.       }
  513.       datehead(outf, maxreq, maxpages, maxbytes, dcols, &dgraph, "Daily",
  514.            langstr, langstr2, langstr3, 'd', &dunit, &fieldwidth,
  515.            &pfieldwidth, &bfieldwidth, &graphwidth, &bdivider);
  516.     }
  517.  
  518.     for(i = 0; i <= 6; i++) {
  519.       j = (weekbeginson + i) % 7;
  520.       if (aq == PREFORMATTED)
  521.         precols(outf, dcols, 'd', byq, ON);
  522.       else
  523.         fprintf(outf, "%s: ", dayname[j]);
  524.       dateline(outf, dreq[j], dpag[j], dbytes[j], dcols, dgraph,
  525.            fieldwidth, pfieldwidth, bfieldwidth, dunit, bdivider);
  526.       if (aq == PREFORMATTED)
  527.         fprintf(outf, "%s\n", dayname[j]);
  528.     }
  529.     
  530.     if (aq == ASCII)
  531.       asciiline(outf);
  532.     else if (aq == HTML)
  533.       fprintf(outf, "</tt></pre>");
  534.     
  535.       }
  536.  
  537.       break;
  538.       
  539.     case 'D':       /* Full daily report */
  540.  
  541.       if (Dq) {
  542.  
  543.     /* For the daily report, we adopt a slightly different strategy to that
  544.        for the monthly report above. Rather than calculate the first day
  545.        explicitly, we move along the months until there are only the right
  546.        number of days left. */
  547.  
  548.     if (!Dback && Drows > 0) {
  549.       tempint = minsbetween(1, firsttime.monthno, firsttime.year, 0, 0,
  550.              lasttime.date, lasttime.monthno, lasttime.year, 0, 0) / 1440 + 1;
  551.       /* = days between start of first month, and last date, inc. */
  552.       monthno = firsttime.monthno;
  553.       year = firsttime.year;
  554.       if (tempint - firsttime.date < Drows) {
  555.         Drows = 0;
  556.         date = 1;
  557.       }
  558.       else {
  559.         while ((tempint -= monthlength[monthno] +
  560.             ISLEAPFEB(monthno, year)) > Drows) {
  561.           firstD = firstD -> next;
  562.           if (++monthno == 12) {
  563.         monthno = 0;
  564.         year++;
  565.           }
  566.         }      
  567.         date = tempint + monthlength[monthno] + ISLEAPFEB(monthno, year) -
  568.           Drows + 1;  /* when at right month, find initial date wanted */
  569.       }
  570.     }
  571.     else
  572.       date = 1;
  573.  
  574.     if (aq != PREFORMATTED) {
  575.       maxreq = 0;
  576.       maxpages = 0;
  577.       maxbytes = 0.0;
  578.       finished = FALSE;
  579.       for (dp = Dback?lastD:firstD; !finished; dp = dp -> next) {
  580.         for (i = (dp == firstD)?(date - 1):0; i < 31; i++) {
  581.           maxreq = MAX(maxreq, dp -> reqs[i]);
  582.           maxpages = MAX(maxpages, dp -> pages[i]);
  583.           maxbytes = MAX(maxbytes, dp -> bytes[i]);
  584.         }
  585.         if (dp == (Dback?firstD:lastD))
  586.           finished = TRUE;
  587.       }
  588.  
  589.       if (lang == ENGLISH) {
  590.         strcpy(langstr, "Daily Report");
  591.         strcpy(langstr3, "     date");
  592.       }
  593.       else if (lang == FRENCH) {
  594.         strcpy(langstr, "Rapport Quotidien");
  595.         strcpy(langstr3, "      date");  /* NB 1 char longer than Eng */
  596.       }
  597.       else if (lang == GERMAN) {
  598.         strcpy(langstr, "Tagesbericht");
  599.         strcpy(langstr3, "    Datum");
  600.           }
  601.       else if (lang == SPANISH) {
  602.         strcpy(langstr, "Informe Diario");
  603.         strcpy(langstr3, "    fecha");
  604.       }
  605.       else if (lang == DANISH) {
  606.         strcpy(langstr, "Daglig rapport");
  607.         strcpy(langstr3, "     dato");
  608.       }
  609.           else { /* lang == ITALIAN */
  610.             strcpy(langstr, "Resoconto giorni");
  611.             strcpy(langstr3, "     data");
  612.       }
  613.       datehead(outf, maxreq, maxpages, maxbytes, Dcols, &Dgraph,
  614.            "FullDaily", langstr, langstr, langstr3, 'D', &Dunit,
  615.            &fieldwidth, &pfieldwidth, &bfieldwidth, &graphwidth,
  616.            &bdivider);
  617.     }
  618.     
  619.     if (Dback && Drows > 0)
  620.       j = Drows;
  621.     else
  622.       j = -1;
  623.     finished = FALSE;
  624.     if (Dback || Drows <= 0) {  /* o/wise year and monthno already found */
  625.       year = (Dback?(&lasttime):(&firsttime)) -> year;
  626.       monthno = (Dback?(&lasttime):(&firsttime)) -> monthno;
  627.     }
  628.     for (dp = Dback?lastD:firstD; !finished; dp = dp -> next) {
  629.       if (dp == firstD) {
  630.         if (!Dback && Drows > 0)
  631.           firsti = date - 1;
  632.         else
  633.           firsti = firsttime.date - 1;
  634.         if (Dback)
  635.           finished = TRUE;
  636.       }
  637.       else
  638.         firsti = 0;
  639.       if (dp == lastD) {
  640.         lasti = lasttime.date - 1;
  641.         if (!Dback)
  642.           finished = TRUE;
  643.       }
  644.       else
  645.         lasti = monthlength[monthno] + ISLEAPFEB(monthno, year) - 1;
  646.       for (i = Dback?lasti:firsti; (Dback?(i >= firsti):(i <= lasti)) &&
  647.            j != 0; i += Dback?(-1):1) { /* thro days in chosen order */
  648.         if (aq == PREFORMATTED)
  649.           precols(outf, Dcols, 'D', byq, ON);
  650.         else if (lang == ENGLISH && dialect == US_ENGLISH)
  651.           fprintf(outf, "%s/%2d/%02d: ", monthname[monthno], i + 1,
  652.               year % 100);
  653.         else if (lang == GERMAN)
  654.           fprintf(outf, "%2d.%s %02d: ", i + 1, monthname[monthno],
  655.               year % 100);
  656.         else
  657.           fprintf(outf, "%2d/%s/%02d: ", i + 1, monthname[monthno],
  658.               year % 100);
  659.         dateline(outf, dp -> reqs[i], dp -> pages[i], dp -> bytes[i],
  660.              Dcols, Dgraph, fieldwidth, pfieldwidth, bfieldwidth,
  661.              Dunit, bdivider);
  662.         if (aq == PREFORMATTED)
  663.           fprintf(outf, "%d%s%d%s%d\n", year, presep, monthno + 1, presep,
  664.               i + 1);
  665.         else if (((dayofdate(i + 1, monthno, year) + (!Dback)) % 7 ==
  666.             weekbeginson) && !(finished && i == (Dback?firsti:lasti)))
  667.           fprintf(outf, "\n");
  668.                          /* extra blank line after each week (not last) */
  669.         j--;
  670.       }
  671.  
  672.       if (Dback) {
  673.         if ((--monthno) == -1) {
  674.           monthno = 11;
  675.           --year;
  676.         }
  677.       }
  678.       else {
  679.         if ((++monthno) == 12) {
  680.           monthno = 0;
  681.           ++year;
  682.         }
  683.       }
  684.       
  685.     }     /* end running through dp's */
  686.  
  687.     if (aq == ASCII)
  688.       asciiline(outf);
  689.     else if (aq == HTML)
  690.       fprintf(outf, "</tt></pre>");
  691.     
  692.       }   /* end if Dq */
  693.  
  694.       break;
  695.  
  696.     case 'H':       /* Full hourly report */
  697.  
  698.       /* This is essentially like the daily report above */
  699.  
  700.       if (Hq) {
  701.  
  702.     if (!Hback && Hrows > 0) {
  703.       tempint = minsbetween(firsttime.date, firsttime.monthno,
  704.           firsttime.year, 0, 0, lasttime.date, lasttime.monthno,
  705.           lasttime.year, lasttime.hr, 0) / 60 + 1;
  706.       /* = hrs between start of first day, and last hr, inc. */
  707.       date = firsttime.date;
  708.       monthno = firsttime.monthno;
  709.       year = firsttime.year;
  710.       if (tempint - firsttime.hr < Hrows) {
  711.         Hrows = 0;
  712.         hr = 0;
  713.       }
  714.       else {
  715.         for ( ; tempint - Hrows > 23; tempint -= 24) {
  716.           firstH = firstH -> next;
  717.           if (++date > monthlength[monthno] + ISLEAPFEB(monthno, year)) {
  718.         date = 1;
  719.         if (++monthno == 12) {
  720.           monthno = 0;
  721.           year++;
  722.         }
  723.           }
  724.         }
  725.         hr = tempint - Hrows;
  726.       }
  727.     }
  728.     else
  729.       hr = 0;
  730.  
  731.     if (aq != PREFORMATTED) {
  732.       maxreq = 0;
  733.       maxpages = 0;
  734.       maxbytes = 0.0;
  735.       finished = FALSE;
  736.       for (hp = Hback?lastH:firstH; !finished; hp = hp -> next) {
  737.         for (i = ((hp == firstH)?hr:0); i < 24; i++) {
  738.           maxreq = MAX(maxreq, hp -> reqs[i]);
  739.           maxpages = MAX(maxpages, hp -> pages[i]);
  740.           maxbytes = MAX(maxbytes, hp -> bytes[i]);
  741.         }
  742.         if (hp == (Hback?firstH:lastH))
  743.           finished = TRUE;
  744.       }
  745.  
  746.       if (lang == ENGLISH) {
  747.         strcpy(langstr, "Hourly Report");
  748.         strcpy(langstr2, "Hourly Report");
  749.         strcpy(langstr3, "     date:hr");
  750.       }
  751.       else if (lang == FRENCH) {
  752.         strcpy(langstr, "Rapport Horaire");
  753.         strcpy(langstr2, "Rapport Horaire");
  754.         strcpy(langstr3, "      date:hr"); /* NB 1 char longer than Eng */
  755.       }
  756.       else if (lang == GERMAN) {
  757.         strcpy(langstr, "Stuendlicher Bericht");
  758.         strcpy(langstr2, "Stündlicher Bericht");
  759.         strcpy(langstr3, "    Datum:St");
  760.       }
  761.       else if (lang == SPANISH) {
  762.         strcpy(langstr, "Informe Horario");
  763.         strcpy(langstr2, "Informe Horario");
  764.         strcpy(langstr3, "    fecha:hr");
  765.       }
  766.       else if (lang == DANISH) {
  767.         strcpy(langstr, "Time rapport");
  768.         strcpy(langstr2, "Time rapport");
  769.         strcpy(langstr3, "     dato:kl");
  770.       }
  771.           else { /* lang == ITALIAN */
  772.             strcpy(langstr, "Resoconto ore");
  773.             strcpy(langstr2, "Resoconto ore");
  774.             strcpy(langstr3, "     data:hh");  /* NB 1 char longer than Eng */
  775.       }
  776.       if (aq != CACHE)
  777.         datehead(outf, maxreq, maxpages, maxbytes, Hcols, &Hgraph,
  778.              "FullHourly", langstr, langstr2, langstr3, 'H',
  779.              &Hunit, &fieldwidth, &pfieldwidth, &bfieldwidth,
  780.              &graphwidth, &bdivider);
  781.     }
  782.  
  783.     if (Hback && Hrows > 0)
  784.       j = Hrows;
  785.     else
  786.       j = -1;
  787.     finished = FALSE;
  788.     if (Hback || Hrows <= 0) {
  789.       year = (Hback?(&lasttime):(&firsttime)) -> year;
  790.       monthno = (Hback?(&lasttime):(&firsttime)) -> monthno;
  791.       date = (Hback?(&lasttime):(&firsttime)) -> date;
  792.     }
  793.     for (hp = Hback?lastH:firstH; !finished; hp = hp -> next) {
  794.       if (hp == firstH) {
  795.         if (!Hback && Hrows > 0)
  796.           firsti = hr;
  797.         else
  798.           firsti = firsttime.hr;
  799.         if (Hback)
  800.           finished = TRUE;
  801.       }
  802.       else
  803.         firsti = 0;
  804.       if (hp == lastH) {
  805.         lasti = lasttime.hr;
  806.         if (!Hback)
  807.           finished = TRUE;
  808.       }
  809.       else
  810.         lasti = 23;
  811.       for (i = Hback?lasti:firsti; (Hback?(i >= firsti):(i <= lasti)) &&
  812.            j != 0; i += Hback?(-1):1) {  /* through hrs in chosen order */
  813.         if (aq == CACHE) {
  814.           if (i == 0 || (hp == firstH && i == firsti))
  815.         fprintf(outf, "\n%d%02d%02d%02d", year, monthno + 1, date, i);
  816.           fprintf(outf, ":%d:%d:%.0f", hp -> reqs[i], hp -> pages[i],
  817.               hp -> bytes[i]);
  818.         }
  819.         else {
  820.           if (aq == PREFORMATTED)
  821.         precols(outf, Hcols, 'H', byq, ON);
  822.           else if (lang == ENGLISH && dialect == US_ENGLISH)
  823.         fprintf(outf, "%s/%2d/%02d:%02d: ", monthname[monthno], date,
  824.             year % 100, i);
  825.           else if (lang == GERMAN)
  826.         fprintf(outf, "%2d.%s %02d:%02d: ", date, monthname[monthno],
  827.             year % 100, i);
  828.           else
  829.         fprintf(outf, "%2d/%s/%02d:%02d: ", date, monthname[monthno],
  830.             year % 100, i);
  831.           dateline(outf, hp -> reqs[i], hp -> pages[i], hp -> bytes[i],
  832.                Hcols, Hgraph, fieldwidth, pfieldwidth, bfieldwidth,
  833.                Hunit, bdivider);
  834.           if (aq == PREFORMATTED)
  835.         fprintf(outf, "%d%s%d%s%d%s%d\n", year, presep, monthno + 1,
  836.             presep, date, presep, i);
  837.           else if (i == (Hback?0:23) && !finished)
  838.         fprintf(outf, "\n");
  839.           /* extra blank line after each day (not last) */
  840.           j--;
  841.         }
  842.       }
  843.  
  844.       if (Hback) {
  845.         if ((--date) == 0) {
  846.           if ((--monthno) == -1) {
  847.         monthno = 11;
  848.         --year;
  849.           }
  850.           date = monthlength[monthno] + ISLEAPFEB(monthno, year);
  851.         }
  852.       }
  853.       else {
  854.         if ((++date) > monthlength[monthno] + ISLEAPFEB(monthno, year)) {
  855.           if ((++monthno) == 12) {
  856.         monthno = 0;
  857.         ++year;
  858.           }
  859.           date = 1;
  860.         }
  861.       }
  862.       
  863.     }     /* end running through hp's */
  864.  
  865.     if (aq == CACHE)
  866.       fprintf(outf, ":*\n");
  867.     else if (aq == ASCII)
  868.       asciiline(outf);
  869.     else if (aq == HTML)
  870.       fprintf(outf, "</tt></pre>");
  871.     
  872.       }   /* end if Hq */
  873.     
  874.       break;
  875.  
  876.     case 'h': /* Hourly summary */
  877.  
  878.       if (hq) {
  879.  
  880.     if (aq != PREFORMATTED) {
  881.       maxreq = 0;
  882.       maxpages = 0;
  883.       maxbytes = 0.0;
  884.       for (i = 0; i <= 23; i++) {
  885.         maxreq = MAX(maxreq, hreq[i]);
  886.         maxpages = MAX(maxpages, hpag[i]);
  887.         maxbytes = MAX(maxbytes, hbytes[i]);
  888.       }
  889.  
  890.       if (lang == ENGLISH) {
  891.         strcpy(langstr, "Hourly Summary");
  892.         strcpy(langstr2, "Hourly Summary");
  893.         strcpy(langstr3, "hr");
  894.       }
  895.       else if (lang == FRENCH) {
  896.         strcpy(langstr, "Resume Horaire");
  897.         strcpy(langstr2, "Résumé Horaire");
  898.         strcpy(langstr3, "hr");
  899.       }
  900.       else if (lang == GERMAN) {
  901.         strcpy(langstr, "Stuendliche Uebersicht");
  902.         strcpy(langstr2, "Stündliche Übersicht");
  903.         strcpy(langstr3, "St");
  904.       }
  905.       else if (lang == SPANISH) {
  906.         strcpy(langstr, "Resumen Horario");
  907.         strcpy(langstr2, "Resumen Horario");
  908.         strcpy(langstr3, "hr");
  909.       }
  910.       else if (lang == DANISH) {
  911.         strcpy(langstr, "Time oversigt");
  912.         strcpy(langstr2, "Time oversigt");
  913.         strcpy(langstr3, "kl");
  914.       }
  915.           else { /* lang == ITALIAN */
  916.             strcpy(langstr, "Sommario ore del giorno");
  917.             strcpy(langstr2, "Sommario ore del giorno");
  918.             strcpy(langstr3, "hh");
  919.       }
  920.       datehead(outf, maxreq, maxpages, maxbytes, hcols, &hgraph, "Hourly",
  921.            langstr, langstr2, langstr3, 'h', &hunit, &fieldwidth,
  922.            &pfieldwidth, &bfieldwidth, &graphwidth, &bdivider);
  923.     }
  924.  
  925.     for(i = 0; i <= 23; i++) {
  926.       if (aq == PREFORMATTED)
  927.         precols(outf, hcols, 'h', byq, ON);
  928.       else
  929.         fprintf(outf, "%2d: ", i);
  930.       dateline(outf, hreq[i], hpag[i], hbytes[i], hcols, hgraph,
  931.            fieldwidth, pfieldwidth, bfieldwidth, hunit, bdivider);
  932.       if (aq == PREFORMATTED)
  933.         fprintf(outf, "%d\n", i);
  934.     }
  935.     
  936.     if (aq == ASCII)
  937.       asciiline(outf);
  938.     else if (aq == HTML)
  939.       fprintf(outf, "</tt></pre>");
  940.     
  941.       }
  942.       
  943.       break;
  944.  
  945.     case 'o':    /* Domain report */
  946.  
  947.       if (oq)
  948.     domout(outf, firstdom);
  949.     
  950.       break;
  951.  
  952.     case 'S':    /* Host report */
  953.  
  954.       if (Sq) {
  955.     if (lang == ENGLISH) {
  956.       strcpy(langstr, "Host Report");
  957.       strcpy(langstr2, "host");
  958.       strcpy(langstr3, "hosts");
  959.       strcpy(langstr4, "host");
  960.     }
  961.     else if (lang == GERMAN) {
  962.       strcpy(langstr, "Host-Bericht");
  963.       strcpy(langstr2, "Hosts");
  964.       strcpy(langstr3, "Hosts");
  965.       strcpy(langstr4, "Host");
  966.       langgender = 'n';
  967.     }
  968.         else if (lang == ITALIAN) {
  969.           strcpy(langstr, "Resoconto host");
  970.           strcpy(langstr2, "host");
  971.           strcpy(langstr3, "host");
  972.           strcpy(langstr4, "host");
  973.           langgender = 'n';  /* special code to mean: use _gli_, not _i_ */
  974.     }
  975.     else if (lang == SPANISH && aq == HTML) {
  976.       strcpy(langstr, "Informe de <i>Hosts</i>");
  977.       /* NB Italics, as 'host' is not Spanish */
  978.       strcpy(langstr2, "<i>host</i>");
  979.       strcpy(langstr3, "<i>hosts</i>");
  980.       strcpy(langstr4, "host");
  981.       langgender = 'm';
  982.     }
  983.     else if (lang == SPANISH) { /* and aq != HTML */
  984.       strcpy(langstr, "Informe de Hosts");
  985.       strcpy(langstr2, "host");
  986.       strcpy(langstr3, "hosts");
  987.       strcpy(langstr4, "host");
  988.       langgender = 'm';
  989.     }
  990.     else if (lang == DANISH) {
  991.       strcpy(langstr, "Host rapport");
  992.       strcpy(langstr2, "host");
  993.       strcpy(langstr3, "hosts");
  994.       strcpy(langstr4, "host");
  995.     }
  996.     else if (aq == HTML) { /* and FRENCH */
  997.       strcpy(langstr, "Rapport des hôtes");
  998.       strcpy(langstr2, "hôte");
  999.       strcpy(langstr3, "hôtes");
  1000.       strcpy(langstr4, "hôte");
  1001.       langgender = 'm';
  1002.     }
  1003.     else { /* lang == FRENCH and aq != HTML */
  1004.       strcpy(langstr, "Rapport des hotes");
  1005.       strcpy(langstr2, "hote");
  1006.       strcpy(langstr3, "hotes");
  1007.       strcpy(langstr4, "hote");
  1008.       langgender = 'm';
  1009.     }
  1010.      genout(outf, Ssorthead, total_succ_reqs, total_page_reqs, total_bytes,
  1011.            Ssortby, Sminreqstr, Sminpagestr, Sminbytestr, Smaxreqs,
  1012.            Smaxpages, Smaxbytes, Scols, "Host", langstr, langstr2,
  1013.            langstr3, langstr4, langgender, 'S', Ssortby == ALPHABETICAL,
  1014.            byq, ON, NULL, Soutaliashead, "");
  1015.       }
  1016.       break;
  1017.     
  1018.     case 'i':   /* Directory report */
  1019.    
  1020.       if (iq) {
  1021.     if (lang == ENGLISH) {
  1022.       strcpy(langstr, "Directory Report");
  1023.       strcpy(langstr2, "directory");
  1024.       strcpy(langstr3, "directories");
  1025.       strcpy(langstr4, "directory");
  1026.     }
  1027.     else if (lang == GERMAN) {
  1028.       strcpy(langstr, "Verzeichnis-Bericht");
  1029.       strcpy(langstr2, "Verzeichnisses");
  1030.       strcpy(langstr3, "Verzeichnisse");
  1031.       strcpy(langstr4, "Verzeichnis");
  1032.       langgender = 'n';
  1033.     }
  1034.         else if (lang == ITALIAN) {
  1035.           strcpy(langstr," Resoconto direttori");
  1036.           strcpy(langstr2, "direttorio");
  1037.           strcpy(langstr3, "direttori");
  1038.           strcpy(langstr4, "direttorio");
  1039.           langgender = 'm';
  1040.         }
  1041.     else if (lang == SPANISH) {
  1042.       strcpy(langstr, "Informe de Directorios");
  1043.       strcpy(langstr2, "directorio");
  1044.       strcpy(langstr3, "directorios");
  1045.       strcpy(langstr4, "directorio");
  1046.       langgender = 'm';
  1047.     }
  1048.     else if (lang == DANISH) {
  1049.       strcpy(langstr, "Directory rapport");
  1050.       strcpy(langstr2, "directory");
  1051.       strcpy(langstr3, "directories");
  1052.       strcpy(langstr4, "directory");
  1053.     }
  1054.     else if (aq == HTML) { /* and FRENCH */
  1055.       strcpy(langstr, "Rapport des répertoires");
  1056.       strcpy(langstr2, "répertoire");
  1057.       strcpy(langstr3, "répertoires");
  1058.       strcpy(langstr4, "répertoire");
  1059.       langgender = 'm';
  1060.     }
  1061.     else { /* lang == FRENCH and aq != HTML */
  1062.       strcpy(langstr, "Rapport des repertoires");
  1063.       strcpy(langstr2, "repertoire");
  1064.       strcpy(langstr3, "repertoires");
  1065.       strcpy(langstr4, "repertoire");
  1066.       langgender = 'm';
  1067.     }
  1068.     genout(outf, isorthead, total_succ_reqs, total_page_reqs, total_bytes,
  1069.            isortby, iminreqstr, iminpagestr, iminbytestr, imaxreqs,
  1070.            imaxpages, imaxbytes, icols, "Directory", langstr, langstr2,
  1071.            langstr3, langstr4, langgender, 'i', FALSE, byq, ON, NULL,
  1072.            ioutaliashead, "");
  1073.       }
  1074.       break;
  1075.  
  1076.     case 't':   /* File type report */
  1077.    
  1078.       if (tq) {
  1079.     if (lang == ENGLISH) {
  1080.       strcpy(langstr, "File Type Report");
  1081.       strcpy(langstr2, "extension");
  1082.       strcpy(langstr3, "extensions");
  1083.       strcpy(langstr4, "extension");
  1084.     }
  1085.     else if (lang == FRENCH) {
  1086.       strcpy(langstr, "Rapport des Types de Fichier");
  1087.       strcpy(langstr2, "extension");
  1088.       strcpy(langstr3, "extensions");
  1089.       strcpy(langstr4, "extension");
  1090.       langgender = 'f';
  1091.     }
  1092.     else if (lang == GERMAN) {
  1093.       strcpy(langstr, "Dateityp-Bericht");
  1094.       strcpy(langstr2, "Extension");
  1095.       strcpy(langstr3, "Extensions");
  1096.       strcpy(langstr4, "Extension");
  1097.       langgender = 'f';
  1098.     }
  1099.         else if (lang == ITALIAN) {
  1100.           strcpy(langstr, "Resoconto tipi di file");
  1101.           strcpy(langstr2, "estensione");
  1102.           strcpy(langstr3, "estensioni");
  1103.           strcpy(langstr4, "estensione");
  1104.           langgender = 'f';
  1105.         }
  1106.     else if (lang == DANISH) {
  1107.       strcpy(langstr, "Filtype rapport");
  1108.       strcpy(langstr2, "endelse");
  1109.       strcpy(langstr3, "endelser");
  1110.       strcpy(langstr4, "endelse");
  1111.       langgender = 'f';
  1112.     }
  1113.     else if (aq == HTML) { /* and SPANISH */
  1114.       strcpy(langstr, "Informe de Tipos de Fichero");
  1115.       strcpy(langstr2, "extensión");
  1116.       strcpy(langstr3, "extensiónes");
  1117.       strcpy(langstr4, "extensión");
  1118.       langgender = 'f';
  1119.     }
  1120.     else { /* lang == SPANISH and aq != HTML */
  1121.       strcpy(langstr, "Informe de Tipos de Fichero");
  1122.       strcpy(langstr2, "extension");
  1123.       strcpy(langstr3, "extensiones");
  1124.       strcpy(langstr4, "extension");
  1125.       langgender = 'f';
  1126.     }
  1127.     genout(outf, tsorthead, total_succ_reqs, total_page_reqs,
  1128.            total_bytes, tsortby, tminreqstr, tminpagestr, tminbytestr,
  1129.            tmaxreqs, tmaxpages, tmaxbytes, tcols, "FileType", langstr,
  1130.            langstr2, langstr3, langstr4, langgender, 't', FALSE, byq,
  1131.            ON, NULL, toutaliashead, "");
  1132.       }
  1133.       break;
  1134.  
  1135.     case 'r':    /* Request report */
  1136.       
  1137.       if (rq) {
  1138.     if (lang == ENGLISH) {
  1139.       strcpy(langstr, "Request Report");
  1140.       strcpy(langstr2, "requested file");
  1141.       strcpy(langstr3, "requested files");
  1142.       strcpy(langstr4, "file");
  1143.     }
  1144.     else if (lang == GERMAN) {
  1145.       strcpy(langstr, "Anfrage-Bericht");
  1146.       strcpy(langstr2, "verlangten Datei");
  1147.       strcpy(langstr3, "verlangten Dateien");
  1148.       strcpy(langstr4, "Datei");
  1149.       langgender = 'f';
  1150.     }
  1151.         else if (lang == ITALIAN) {
  1152.           strcpy(langstr, "Resoconto richieste");
  1153.           strcpy(langstr2, "file richiesto");
  1154.           strcpy(langstr3, "file richiesti");
  1155.           strcpy(langstr4, "file");
  1156.           langgender = 'm';
  1157.         }
  1158.     else if (lang == SPANISH) {
  1159.       strcpy(langstr, "Informe de Peticiones");
  1160.       strcpy(langstr2, "fichero solicitado");
  1161.       strcpy(langstr3, "ficheros solicitados");
  1162.       strcpy(langstr4, "fichero");
  1163.       langgender = 'm';
  1164.     }
  1165.     else if (lang == DANISH) {
  1166.       if (aq == HTML)
  1167.         strcpy(langstr, "Forespørgselsrapport");
  1168.       else
  1169.         strcpy(langstr, "Forespoergselsrapport");
  1170.           strcpy(langstr2, "forespurgt fil");
  1171.           strcpy(langstr3, "forespurgte filer");
  1172.           strcpy(langstr4, "fil");
  1173.     }
  1174.     else if (aq == HTML) { /* and FRENCH */
  1175.       strcpy(langstr, "Rapport des requêtes");
  1176.       strcpy(langstr2, "fichier demandé");
  1177.       strcpy(langstr3, "fichiers demandés");
  1178.       strcpy(langstr4, "fichier");
  1179.       langgender = 'm';
  1180.     }
  1181.     else { /* lang == FRENCH and aq != HTML */
  1182.       strcpy(langstr, "Rapport des requetes");
  1183.       strcpy(langstr2, "fichier demande");
  1184.       strcpy(langstr3, "fichiers demandes");
  1185.       strcpy(langstr4, "fichier");
  1186.       langgender = 'm';
  1187.     }
  1188.     genout(outf, rsorthead, total_succ_reqs, total_page_reqs, total_bytes,
  1189.            rsortby, rminreqstr, rminpagestr, rminbytestr, rmaxreqs,
  1190.            rmaxpages, rmaxbytes, rcols, "Request", langstr, langstr2,
  1191.            langstr3, langstr4, langgender, 'r', FALSE, byq, ON,
  1192.            (aq == HTML)?linkhead:NULL, routaliashead, baseurl);
  1193.       }
  1194.       break;
  1195.  
  1196.     case 'f':    /* Referrer report */
  1197.  
  1198.       if (fq) {
  1199.     if (lang == ENGLISH) {
  1200.       strcpy(langstr, "Referrer Report");
  1201.       strcpy(langstr2, "referring URL");
  1202.       strcpy(langstr3, "referring URLs");
  1203.       strcpy(langstr4, "URL");
  1204.     }
  1205.     else if (lang == GERMAN) {
  1206.       strcpy(langstr, "Verweis-Bericht");
  1207.       strcpy(langstr2, "verweisenden URL");
  1208.       strcpy(langstr3, "verweisenden URLs");
  1209.       strcpy(langstr4, "URL");
  1210.       langgender = 'f';
  1211.     }
  1212.     else if (lang == FRENCH) {
  1213.       strcpy(langstr, "Rapport des Appelants");
  1214.       strcpy(langstr2, "URL appelant");
  1215.       strcpy(langstr3, "URL appelants");
  1216.       strcpy(langstr4, "URL");
  1217.       langgender = 'm';
  1218.     }
  1219.     else if (lang == SPANISH) {
  1220.       strcpy(langstr, "Informe de Remitentes");
  1221.       strcpy(langstr2, "URL remitente");
  1222.       strcpy(langstr3, "URLs remitentes");
  1223.       strcpy(langstr4, "URL");
  1224.       langgender = 'm';
  1225.     }
  1226.     else if (lang == DANISH) {
  1227.       strcpy(langstr, "Refererende adresserapport");
  1228.       strcpy(langstr2, "refererende URL");
  1229.       strcpy(langstr3, "refererende URLs");
  1230.       strcpy(langstr4, "URL");
  1231.       langgender = 'm';
  1232.     }
  1233.         else { /* lang == ITALIAN */
  1234.           strcpy(langstr, "Resoconto provenienze");
  1235.           strcpy(langstr2, "URL di provenienza");
  1236.           strcpy(langstr3, "URL di provenienza");
  1237.           strcpy(langstr4, "URL");
  1238.           langgender = 'f';
  1239.         }
  1240.     genout(outf, fsorthead, total_good_refs, total_ref_pages,
  1241.            total_ref_bytes, fsortby, fminreqstr, fminpagestr, fminbytestr,
  1242.            fmaxreqs, fmaxpages, fmaxbytes, fcols, "Referrer", langstr,
  1243.            langstr2, langstr3, langstr4, langgender, 'f', FALSE, refbyq,
  1244.            ON, (aq == HTML)?reflinkhead:NULL, foutaliashead, "");
  1245.       }
  1246.       break;
  1247.  
  1248.     case 'b':    /* Browser summary */
  1249.  
  1250.       if (bq) {
  1251.     if (lang == ENGLISH) {
  1252.       strcpy(langstr, "Browser Summary");
  1253.       strcpy(langstr2, "browser");
  1254.       strcpy(langstr3, "browsers");
  1255.       strcpy(langstr4, "browser");
  1256.     }
  1257.     else if (lang == GERMAN) {
  1258.       if (aq == HTML)
  1259.         strcpy(langstr, "Browser-Übersicht");
  1260.       else
  1261.         strcpy(langstr, "Browser-Uebersicht");
  1262.       strcpy(langstr2, "Browsers");
  1263.       strcpy(langstr3, "Browser");
  1264.       strcpy(langstr4, "Browser");
  1265.       langgender = 'n';
  1266.     }
  1267.     else if (lang == FRENCH) {
  1268.       if (aq == HTML)
  1269.         strcpy(langstr, "Résumé des navigateurs");
  1270.       else
  1271.         strcpy(langstr, "Resume des navigateurs");
  1272.       strcpy(langstr2, "navigateur");
  1273.       strcpy(langstr3, "navigateurs");
  1274.       strcpy(langstr4, "navigateur");
  1275.       langgender = 'm';
  1276.     }
  1277.     else if (lang == SPANISH && aq == HTML) {
  1278.           strcpy(langstr, "Resumen de <i>Browsers</i>");
  1279.       strcpy(langstr2, "<i>browser</i>");
  1280.       strcpy(langstr3, "<i>browsers</i>");
  1281.       strcpy(langstr4, "browser");
  1282.       langgender = 'm';
  1283.     }
  1284.     else if (lang == SPANISH) {  /* and aq != HTML */
  1285.       strcpy(langstr, "Resumen de Browsers");
  1286.       strcpy(langstr2, "browser");
  1287.       strcpy(langstr3, "browsers");
  1288.       strcpy(langstr4, "browser");
  1289.       langgender = 'm';
  1290.     }
  1291.     else if (lang == DANISH) {
  1292.       strcpy(langstr, "Browser oversigt");
  1293.       strcpy(langstr2, "browser");
  1294.       strcpy(langstr3, "browsere");
  1295.       strcpy(langstr4, "browser");
  1296.       langgender = 'm';
  1297.     }
  1298.         else { /* lang == ITALIAN */
  1299.           strcpy(langstr, "Sommario browser");
  1300.           strcpy(langstr2, "browser");
  1301.           strcpy(langstr3, "browser");
  1302.           strcpy(langstr4, "browser");
  1303.           langgender = 'm';
  1304.         }
  1305.     genout(outf, bsorthead, total_good_brows, total_brow_pages,
  1306.            total_brow_bytes, bsortby, bminreqstr, bminpagestr,
  1307.            bminbytestr, bmaxreqs, bmaxpages, bmaxbytes, bcols, "Browser",
  1308.            langstr, langstr2, langstr3, langstr4, langgender, 'b', FALSE,
  1309.            browbyq, browbyq, NULL, boutaliashead, "");
  1310.       }
  1311.       break;
  1312.       
  1313.     case 'B':    /* Full browser report */
  1314.  
  1315.       if (Bq) {
  1316.     if (lang == ENGLISH) {
  1317.       strcpy(langstr, "Browser Report");
  1318.       strcpy(langstr2, "browser");
  1319.       strcpy(langstr3, "browsers");
  1320.       strcpy(langstr4, "browser");
  1321.     }
  1322.     else if (lang == GERMAN) {
  1323.       strcpy(langstr, "Browser-Bericht");
  1324.       strcpy(langstr2, "Browsers");
  1325.       strcpy(langstr3, "Browser");
  1326.       strcpy(langstr4, "Browser");
  1327.       langgender = 'n';
  1328.     }
  1329.     else if (lang == FRENCH) {
  1330.       strcpy(langstr, "Rapport des navigateurs");
  1331.       strcpy(langstr2, "navigateur");
  1332.       strcpy(langstr3, "navigateurs");
  1333.       strcpy(langstr4, "navigateur");
  1334.       langgender = 'm';
  1335.     }
  1336.         else if (lang == ITALIAN) {
  1337.           strcpy(langstr, "Resoconto browser");
  1338.           strcpy(langstr2, "browser");
  1339.           strcpy(langstr3, "browser");
  1340.           strcpy(langstr4, "browser");
  1341.           langgender = 'm';
  1342.         }
  1343.     else if (lang == DANISH) {
  1344.       strcpy(langstr, "Browser rapport");
  1345.       strcpy(langstr2, "browser");
  1346.       strcpy(langstr3, "browsere");
  1347.       strcpy(langstr4, "browser");
  1348.       langgender = 'm';
  1349.     }
  1350.     else if (aq == HTML) { /*  and SPANISH */
  1351.       strcpy(langstr, "Informe de <i>Browsers</i>");
  1352.       strcpy(langstr2, "<i>browser</i>");
  1353.       strcpy(langstr3, "<i>browsers</i>");
  1354.       strcpy(langstr4, "browser");
  1355.       langgender = 'm';
  1356.     }
  1357.     else { /* lang == SPANISH and aq != HTML */
  1358.       strcpy(langstr, "Informe de Browsers");
  1359.       strcpy(langstr2, "browsers");
  1360.       strcpy(langstr3, "browser");
  1361.       strcpy(langstr4, "browser");
  1362.       langgender = 'm';
  1363.     }
  1364.     genout(outf, Bsorthead, total_good_brows, total_brow_pages,
  1365.            total_brow_bytes, Bsortby, Bminreqstr, Bminpagestr,
  1366.            Bminbytestr, Bmaxreqs, Bmaxpages, Bmaxbytes, Bcols,
  1367.            "FullBrowser", langstr, langstr2, langstr3, langstr4,
  1368.            langgender, 'B', FALSE, browbyq, browbyq, NULL, NULL, "");
  1369.       }
  1370.       break;
  1371.  
  1372.     case 'c':
  1373.  
  1374.       if (cq)
  1375.     statusout(outf);
  1376.       break;
  1377.  
  1378.     case 'e':
  1379.  
  1380.       if (eq)
  1381.     errout(outf, errorder);
  1382.       break;
  1383.  
  1384.     }    /* end switch */
  1385.   }      /* end for ro */
  1386.  
  1387.   /*** Bit at the bottom of the page ***/
  1388.  
  1389.   if (aq != CACHE) {
  1390.     if (aq != PREFORMATTED) {
  1391.       if (!aq) {
  1392.     if (lang == ENGLISH)
  1393.       fprintf(outf, "\n\n<hr>\n<i>This analysis was produced by <a HREF=\"http://www.statslab.cam.ac.uk/~sret1/analog/\">analog%s</a>.\n", VERSION);
  1394.     else if (lang == FRENCH)
  1395.       fprintf(outf, "\n\n<hr>\n<i>Ces statistiques sont produites par <a HREF=\"http://www.statslab.cam.ac.uk/~sret1/analog/\">analog%s</a>.\n", VERSION);
  1396.     else if (lang == GERMAN)
  1397.       fprintf(outf, "\n\n<hr>\n<i>Diese Statistik wurde mit <a HREF=\"http://www.statslab.cam.ac.uk/~sret1/analog/\">analog%s</a> erstellt.\n", VERSION);
  1398.     else if (lang == SPANISH)
  1399.       fprintf(outf, "\n\n<hr>\n<i>Estadísticas generadas por <a HREF=\"http://www.statslab.cam.ac.uk/~sret1/analog/\">analog%s</a>.\n", VERSION);
  1400.     else if (lang == DANISH)
  1401.       fprintf(outf, "\n\n<hr>\n<i>Denne analyse blev produceret af <a HREF=\"http://www.statslab.cam.ac.uk/~sret1/analog/\">analog%s</a>.\n", VERSION);
  1402.         else /* lang == ITALIAN */
  1403.           fprintf(outf, "\n\n<hr>\n<i>Queste statistiche sono state prodotte da <a HREF=\"http://www.statslab.cam.ac.uk/~sret1/analog/\">analog%s</a>.\n", VERSION);
  1404.       }
  1405.       else if (lang == ENGLISH)
  1406.     fprintf(outf, "This analysis was produced by analog%s.\n", VERSION);
  1407.       else if (lang == FRENCH)
  1408.     fprintf(outf, "Ces statistiques sont produites par analog%s.\n",
  1409.         VERSION);
  1410.       else if (lang == GERMAN)
  1411.         fprintf(outf, "Diese Statistik wurde mit analog%s erstellt.\n",
  1412.         VERSION);
  1413.       else if (lang == SPANISH)
  1414.     fprintf(outf, "Estadisticas generadas por analog%s.\n",
  1415.         VERSION);
  1416.       else if (lang == DANISH)
  1417.     fprintf(outf, "Denne analyse blev produceret af analog%s.\n", VERSION);
  1418.       else /* lang == ITALIAN */
  1419.         fprintf(outf, "Queste statistiche sono state prodotte da analog%s.\n", VERSION);
  1420.  
  1421.       time(&stoptime);
  1422.   
  1423.       stoptime -= starttime;   /* so now measures elapsed time */
  1424.  
  1425.       if (stoptime == 0) {
  1426.     if (aq == HTML) {
  1427.       if (lang == ENGLISH)
  1428.         fprintf(outf,
  1429.             "<br><b>Running time:</b> Less than 1 second.</i>\n");
  1430.       else if (lang == FRENCH)
  1431.         fprintf(outf, "<br><b>Temps d'exécution :</b> Moins d'une seconde.</i>\n");
  1432.       else if (lang == GERMAN)
  1433.         fprintf(outf, "<br><b>Laufzeit:</b> Unter einer Sekunde.</i>\n");
  1434.       else if (lang == SPANISH)
  1435.         fprintf(outf, "<br><b>Tiempo de ejecución:</b> Menos de 1 segundo.</i>\n");
  1436.       else if (lang == DANISH)
  1437.         fprintf(outf, "<br><b>Analysetid:</b> Under 1 sekund.</i>\n");
  1438.           else /* lang == ITALIAN */
  1439.             fprintf(outf, "<br><b>Tempo di esecuzione:</b> Meno di un secondo.</i>\n");
  1440.     }
  1441.     else if (lang == ENGLISH)
  1442.       fprintf(outf, "Running time: Less than 1 second.\n");
  1443.     else if (lang == FRENCH)
  1444.       fprintf(outf, "Temps d'execution : Moins d'une seconde.\n");
  1445.     else if (lang == GERMAN)
  1446.       fprintf(outf, "Laufzeit: Unter einer Sekunde.\n");
  1447.     else if (lang == SPANISH)
  1448.       fprintf(outf, "Tiempo d ejecucion: Menos de 1 segundo.\n");
  1449.     else if (lang == DANISH)
  1450.       fprintf(outf, "Analysetid: Under 1 sekund.\n");
  1451.         else /* lang == ITALIAN */
  1452.           fprintf(outf, "Tempo di esecuzione: Meno di un secondo.\n");
  1453.       }
  1454.  
  1455.       else if (stoptime < 60) {
  1456.     if (aq == HTML) {
  1457.       if (lang == ENGLISH)
  1458.         fprintf(outf, "<br><b>Running time:</b> %ld second%s.</i>\n",
  1459.             stoptime, (stoptime == 1)?"":"s");
  1460.       else if (lang == FRENCH)
  1461.         fprintf(outf,
  1462.             "<br><b>Temps d'exécution :</b> %ld seconde%s.</i>\n",
  1463.             stoptime, (stoptime == 1)?"":"s");
  1464.       else if (lang == GERMAN)
  1465.         fprintf(outf, "<br><b>Laufzeit:</b> %ld Sekunde%s.</i>\n",
  1466.                     stoptime, (stoptime == 1)?"":"n");
  1467.       else if (lang == SPANISH)
  1468.         fprintf(outf, "<br><b>Tiempo de ejecución:</b> %ld segundo%s.</i>\n",
  1469.                     stoptime, (stoptime == 1)?"":"s");
  1470.       else if (lang == DANISH)
  1471.         fprintf(outf, "<br><b>Analysetid:</b> %ld sekund%s.</i>\n",
  1472.             stoptime, (stoptime == 1)?"":"er");
  1473.           else /* lang == ITALIAN */
  1474.             fprintf(outf,
  1475.             "<br><b>Tempo di esecuzione:</b> %ld second%s.</i>\n",
  1476.                     stoptime, (stoptime == 1)?"o":"i");
  1477.     }
  1478.     else if (lang == ENGLISH)
  1479.       fprintf(outf, "Running time: %ld second%s.\n",
  1480.           stoptime, (stoptime == 1)?"":"s");
  1481.     else if (lang == FRENCH)
  1482.       fprintf(outf, "Temps d'execution : %ld seconde%s.\n",
  1483.           stoptime, (stoptime == 1)?"":"s");
  1484.     else if (lang == GERMAN)
  1485.       fprintf(outf, "Laufzeit: %ld Sekunde%s.\n",
  1486.           stoptime, (stoptime == 1)?"":"n");
  1487.     else if (lang == SPANISH)
  1488.       fprintf(outf, "Tiempo de ejecucion: %ld segundo%s.\n",
  1489.           stoptime, (stoptime == 1)?"":"s");
  1490.     else if (lang == DANISH)
  1491.       fprintf(outf, "Analysetid: %ld sekund%s.\n",
  1492.           stoptime, (stoptime == 1)?"":"er");
  1493.         else /* lang == ITALIAN */
  1494.           fprintf(outf, "Tempo di esecuzione: %ld second%s.</i>\n",
  1495.                   stoptime, (stoptime == 1)?"o":"i");                  
  1496.       }
  1497.   
  1498.       else {
  1499.     if (aq == HTML) {
  1500.       if (lang == ENGLISH)
  1501.         fprintf(outf, "<br><b>Running time:</b> %ld minute%s, %ld second%s.</i>\n",
  1502.             stoptime / 60, (stoptime / 60 == 1)?"":"s",
  1503.             stoptime % 60, (stoptime % 60 == 1)?"":"s");
  1504.       else if (lang == FRENCH)
  1505.         fprintf(outf, "<br><b>Temps d'exécution :</b> %ld minute%s, %ld seconde%s.</i>\n",
  1506.             stoptime / 60, (stoptime / 60 == 1)?"":"s",
  1507.             stoptime % 60, (stoptime % 60 == 1)?"":"s");
  1508.       else if (lang == GERMAN)
  1509.         fprintf(outf, "<br><b>Laufzeit:</b> %ld Minute%s, %ld Sekunde%s.</i>\n",
  1510.                     stoptime / 60, (stoptime / 60 == 1)?"":"n",
  1511.                     stoptime % 60, (stoptime % 60 == 1)?"":"n");
  1512.       else if (lang == SPANISH)
  1513.         fprintf(outf, "<br><b>Tiempo de ejecución:</b> %ld minuto%s, %ld segundo%s.</i>\n",
  1514.             stoptime / 60, (stoptime / 60 == 1)?"":"s",
  1515.             stoptime % 60, (stoptime % 60 == 1)?"":"n");
  1516.       else if (lang == DANISH)
  1517.         fprintf(outf, "<br><b>Analysetid:</b> %ld minut%s, %ld sekund%s.</i>\n",
  1518.             stoptime / 60, (stoptime / 60 == 1)?"":"ter",
  1519.             stoptime % 60, (stoptime % 60 == 1)?"":"er");
  1520.           else /* lang == ITALIAN */
  1521.             fprintf(outf, "<br><b>Tempo di esecuzione:</b> %ld minut%s, %ld second%s.</i>\n",
  1522.                     stoptime / 60, (stoptime / 60 == 1)?"o":"i",
  1523.                     stoptime % 60, (stoptime % 60 == 1)?"o":"i");
  1524.     }
  1525.     else if (lang == ENGLISH)
  1526.       fprintf(outf, "Running time: %ld minute%s, %ld second%s.\n",
  1527.           stoptime / 60, (stoptime / 60 == 1)?"":"s",
  1528.           stoptime % 60, (stoptime % 60 == 1)?"":"s");
  1529.     else if (lang == FRENCH)
  1530.       fprintf(outf, "Temps d'execution : %ld minute%s, %ld seconde%s.\n",
  1531.           stoptime / 60, (stoptime / 60 == 1)?"":"s",
  1532.           stoptime % 60, (stoptime % 60 == 1)?"":"s");
  1533.     else if (lang == GERMAN)
  1534.       fprintf(outf, "Laufzeit: %ld Minute%s, %ld Sekunde%s.\n",
  1535.                   stoptime / 60, (stoptime / 60 == 1)?"":"n",
  1536.                   stoptime % 60, (stoptime % 60 == 1)?"":"n");
  1537.     else if (lang == SPANISH)
  1538.       fprintf(outf, "Tiempo de ejecucion: %ld minuto%s, %ld segundo%s.\n",
  1539.                   stoptime / 60, (stoptime / 60 == 1)?"":"s",
  1540.                   stoptime % 60, (stoptime % 60 == 1)?"":"s");
  1541.     else if (lang == DANISH)
  1542.       fprintf(outf, "Analysetid: %ld minut%s, %ld sekund%s.\n",
  1543.           stoptime / 60, (stoptime / 60 == 1)?"":"ter",
  1544.           stoptime % 60, (stoptime % 60 == 1)?"":"er");
  1545.         else /* lang == ITALIAN */
  1546.           fprintf(outf, "Tempo di esecuzione: %ld minut%s, %ld second%s.\n",
  1547.           stoptime / 60, (stoptime / 60 == 1)?"o":"i",
  1548.           stoptime % 60, (stoptime % 60 == 1)?"o":"i");
  1549.       }
  1550.   
  1551.       if (!aq && (mq || Wq || dq || Dq || hq || oq || Sq || iq || rq)) {
  1552.     gotos(outf, '\0');
  1553.       }
  1554.     }     /* end if aq != PREFORMATTED */
  1555.  
  1556.     /* Finally, insert footer file */
  1557.  
  1558.     if (!STREQ(footerfile, "none")) {
  1559.       tempf = fopenlog(footerfile, "footer file", &ispipe);
  1560.       if (tempf != NULL) {
  1561.     if (aq == HTML)
  1562.       fprintf(outf, "<hr>\n");
  1563.     else if (aq == ASCII) {
  1564.       for (i = 0; i < pagewidth; i++)
  1565.         fprintf(outf, "-");
  1566.       fprintf(outf, "\n\n");
  1567.     }
  1568.     fflush(stdout);
  1569.  
  1570.     while(fgets(templine, MAXLINELENGTH, tempf) != NULL)
  1571.       fprintf(outf, "%s", templine);
  1572.     if (templine[(int)strlen(templine) - 1] != '\n')
  1573.       fprintf(outf, "\n");
  1574.     fcloselog(tempf, footerfile, "footer file", ispipe);
  1575.  
  1576.     if (aq == HTML || aq == ASCII)
  1577.       fprintf(outf, "\n");
  1578.  
  1579.     html2 = OFF;
  1580.       }
  1581.     }
  1582.  
  1583.     if (aq == HTML) {
  1584.       if (html2) {
  1585.     fprintf(outf,
  1586.         "<P> <A HREF=\"http://www.webtechs.com/html-val-svc/\">\n");
  1587.     fprintf(outf, "<IMG SRC=\"");
  1588.     htmlfprintf(outf, imagedir);
  1589.     fprintf(outf, "html2.gif\"\n");
  1590.     fprintf(outf, "ALT=\"HTML 2.0 Conformant!\"></A>\n");
  1591.       }
  1592.       fprintf(outf, "\n</body>\n</html>\n");
  1593.     }
  1594.   }      /* end if aq != CACHE */
  1595.  
  1596.   fclose(outf);
  1597.   if (debug > 0)
  1598.     fprintf(stderr, "F: Closing %s\n", STREQ(outfile, "-")?"stdout":outfile);
  1599.  
  1600. }
  1601.